home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / fp / ifp_unix.lzh / ifp / fproot / math / linear / Inner < prev    next >
Encoding:
Text File  |  1987-02-09  |  110 b   |  8 lines
  1. (* Inner product *)
  2.  
  3. DEF Inner AS 
  4.    trans | EACH * END | 
  5.    IF null THEN #0 
  6.    ELSE INSERT + END 
  7.    END;
  8.